home *** CD-ROM | disk | FTP | other *** search
/ Canadian Geographic Explorer / Canadian Geographic Explorer.iso / pc / riddler.dxr / 00023_Enter Name 2 looper script.ls < prev    next >
Encoding:
Text File  |  1996-10-03  |  670 b   |  21 lines
  1. on exitFrame
  2.   global gNumPlayers, gName3Sprite, gScore3Sprite, gVoiceChannel, gPathToSound, fileDelimiter
  3.   if the keyPressed = RETURN then
  4.     if the text of field "player name" <> EMPTY then
  5.       sound playFile gVoiceChannel, gPathToSound & "signup" & fileDelimiter & "mock2.aif"
  6.       Capitalize("player name")
  7.       set the text of field "name2" to the text of field "player name"
  8.       repeat while soundBusy(gVoiceChannel)
  9.       end repeat
  10.       if gNumPlayers > 2 then
  11.         go(the frame + 1)
  12.       else
  13.         puppetSprite(gName3Sprite, 1)
  14.         puppetSprite(gScore3Sprite, 1)
  15.         go("Key Assign")
  16.       end if
  17.     end if
  18.   end if
  19.   go(the frame)
  20. end
  21.